setdisplay(320,240,32,1):paper(8^8-1):ink(0):pen(0):cls:mousehide
for a=5 to 0 step -.3
prints(a)
next
waitkey